%% Author: kevin.jingqiu
%% Created: Jun 8, 2009
%% Description: TODO: Add description to p23
-module(p23).

%%
%% Include files
%%

%%
%% Exported Functions
%%
-export([solve/0]).

%%
%% API Functions
%%
solve() ->
    abundant_nums().


%%
%% Local Functions
%%

is_abundant(N) ->
    lists:sum(mylib:proper_divisors(N)) > N.

abundant_nums() ->
    lists:filter(fun is_abundant/1, lists:seq(1,28123)).
